Private Sub Image1_Click()

End Sub

Private Sub egal_Click()
MsgBox CInt(TextBox1.Text)
End Sub

Private Sub eight_Click()
TextBox1.Text = 8
End Sub

Private Sub five_Click()
TextBox1.Text = 5
End Sub

Private Sub four_Click()
TextBox1.Text = 4
End Sub

Private Sub Label1_Click()

End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub CommandButton10_Click()

End Sub

Private Sub CommandButton11_Click()

End Sub

Private Sub CommandButton14_Click()
MsgBox
End Sub

Private Sub moins_Click()
TextBox1.Text =
End Sub

Private Sub mult_Click()
TextBox1.Text =
End Sub

Private Sub nine_Click()
TextBox1.Text = 9
End Sub

Private Sub one_Click()
TextBox1.Text = 1
End Sub

Private Sub plus_Click()
TextBox1.Text =
End Sub

Private Sub reda_Click()
TextBox1.Text =
End Sub

Private Sub seven_Click()
TextBox1.Text = 7
End Sub

Private Sub six_Click()
TextBox1.Text = 6
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub three_Click()
TextBox1.Text = 3
End Sub

Private Sub two_Click()
TextBox1.Text = 2
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub zero_Click()
TextBox1.Text = 0
End Sub
